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Artificial Intelligence Project"-RLE and K.CT Computation Center 

l'lotRO 2C-*«*Pusslo Solving Program in LISP 

by 

John McCarthy 

In this note v;e give as: an example of LISP programming a 

l unction for solving a class of pur.zics in a recent prize centeoto 

A linear graph is given with a starting point and an endpoint. 

Associated with each vertex of the graph is a numerical value. The 

object is to find a path on the graph from the starting point to 

the endpoint which goes through no vertex twice and which maximizes 

the sum of the values associated with the vertices through which 
the path goes. 
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Me shall use the following conventions in our LISP program 
for solving the problems 

The graph i3 described by assigning to each vertex an 
a~cmxc symbol and giving a list of terms one for each vertex,, each 
of which is a list of three items! the name of the vertex, a liat 
of the vertices immediately accessible from it, and the value 
assigned to the vertex. The graph in the example is described by s 
vA2,A5),7.5),(A2,(A1.A5.A9,A3),3.5),(A3,(A2,A6),7.o),(AA,(A5 
A9,A3),2.0)), (A5, (Ai,A4,A2),3.0), (a6, (A3,A9,A7),6.0), <A7, (AS,A9,AA0), 
6-5), (AS, (A4,A9),5.5), (A9, (A3,A4,A2,AS,A7,A10),8.0), (A10, (A7,A9,H).1.0)> 
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A position is described by Hot: of the vertices cover .d 

up to that point in reverse order- The initial position la (aA) 
In the example or the previous page« 

3- The list of squares to which It is local to move in a 
position p is given by 


legale* Jp] « ices [carHa£‘32icar[pJ; P Kin;pI 


V'hoi'O 

% 

lcss£nipnj •*» fnulljmj ■** NIL; occurJcarJtnJjn}^ 

less{cdr[m]jn]{T -*• Gons[ear{tnl2less(cdr(ffi];nJ]] 

and- 

&ss2(x;n] « [eq[caar£m2;xj 

a332[x;cdr{tnj]J 
and 


cadrfm]*T 


occurfx;nJ «« ronullj[n} A [eqCxjcarCn]] V oceur[x;cdrin}Ij 

Here less Ini;n3 is a list of those elements of m not members 
cf n, ass«.fx;ip) is edr [the first element of m ; , c ar of which is 
x}, occur Cx;n,{ is the predicate 'that .asserts that x is a member 

Of Oo 

» 

4. The best path is .given by bestUnitial position; moves from 

the initial position; path with very low: value] or in the present 

example, best! (Al); (A2,A5^j,{Ai) j * The function best [ P ; K ;a] is the 

best path starting with the subpath-p, ’There the moves from p arc 

to be taken from the list n and s is the best path found so far- 
V/e have j 

, bso( :(p;K;oI - fnalltmJ- SiT->l>sattpjccI»loJi MIn];te 5 [cartn]; 
H; - better Ip; si -* p 5 ® - »]» T - bestln;leealsln3;s3 JHconsrcarloI. 

Pili] 


For comparing two paths we have 

better{pi;p 2 ] « eqlMimjS;car?sua{addup[p 2 ]; 
list[MINUS5 addupfpl]]]]] 
where 

addup [p] « (nullfpj r* 0.0; T -* sum[vslue [car£pj];addup 
[cdr[p}f31] 

« 

and 

i, 

j | v |^- ue ^ s Q^. ** OBdrCass2£8q;pzl3] 
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